home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 026-050 / scopedisk50 / bam12 / bankdep.sbp < prev    next >
Text File  |  1995-03-18  |  8KB  |  378 lines
  1. SBP
  2.  ÿ½ Bank Account Management Program version 1.2
  3.  ÿ½ Robert Driscoll, Jr.
  4.  ÿ½ 1498 East 108th Street
  5.  ÿ½ Cleveland, Ohio   44106
  6.  ÿ½      started....... June 18, 1988
  7.  ÿ½
  8.  ÿ½ This program is free to circulate but please leave the OpenningScreen:
  9.  ÿ½ routine in the program to give credit where credit is due.
  10.  
  11.  ÿ´ÿ™"ram:BankDep"
  12.  ÿ£Deposit.BankDep
  13.  ÿÉÿb
  14.  idx%ÿDeposit.BankDep:z%ÿidx%:a%ÿ1:numb%ÿ0
  15.  title$ÿ"Bank Accounts Manager v. 1.2"
  16.  help$ÿÿ'(34)ÿ"Help Screen"
  17.  VersionDate$ÿ"December 24, 1988"
  18.  
  19. OpenningScreen: 
  20.  ÿ‡
  21.  ÿ©1,8:ÿ{ÿ'(25)title$
  22.  ÿ{ÿ'(19)"Amiga Version of SuperBase Professional"
  23.  ÿ{ÿ'(30)VersionDate$
  24.  ÿ{
  25.  ÿ{ÿ'(24);"Written by Robert Driscoll, Jr."
  26.  ÿ{ÿ'(32);"(216) 721-9055"
  27.  ÿÏÿ›5
  28.  ÿwstart:
  29.  
  30. HelpScreen: 
  31.  ÿ‡
  32.  ÿ{ÿÑ3ÿÕÿ³help$;ÿÖÿe
  33.  ÿ{
  34.  ÿ{ÿÑ2;" ,";ÿÑ3" = Past deposits  (regard this as pressing < without the shift)"
  35.  ÿ{ÿÑ2;" .";ÿÑ3" = Future deposits  (regard this as pressing > without the shift)"
  36.  ÿ{ÿÑ2;" n";ÿÑ3" = Creates the first entry in a ";ÿÑ2;"NEW DEPOSIT";ÿÑ3;".  Following entries will"
  37.  ÿ{ÿÑ3;"     use the 's' command"
  38.  ÿ{ÿÑ2;" s";ÿÑ3" = Creates a new entry in the ";ÿÑ2;"SAME DEPOSIT ";ÿÑ3;"that is the current deposit"
  39.  ÿ{ÿÑ3;"     in view."
  40.  ÿ{ÿÑ2;" t";ÿÑ3" = enter ";ÿÑ2;"TYPE ";ÿÑ3;"of the deposit (Checking, Savings or spaces for undecided)"
  41.  ÿ{ÿÑ2;" d";ÿÑ3" = enter ";ÿÑ2;"DATE ";ÿÑ3;"of the deposit"
  42.  ÿ{ÿÑ2;" V";ÿÑ3" = changes ";ÿÑ2;"VALIDATED ";ÿÑ3;"to ";ÿÑ2;"Y ";ÿÑ3;"meaning that you have seen the deposit on your"
  43.  ÿ{ÿÑ3;"     bank statement"
  44.  ÿ{ÿÑ2;" U";ÿÑ3" = changes ";ÿÑ2;"VALIDATED ";ÿÑ3;"back to ";ÿÑ2;"N ";ÿÑ3;"if you mistakenly pressed 'V'"
  45.  ÿ{ÿÑ2;" e";ÿÑ3" = puts you in ";ÿÑ2;"RECORD EDIT MODE"
  46.  ÿ{ÿÑ2;" v";ÿÑ3" = puts you in ";ÿÑ2;"RECORD VIEW MODE"
  47.  ÿ{ÿÑ2;" h";ÿÑ3" = displays this screen                 ";ÿÑ2;"Press SPACE To Continue"
  48.  ÿ{ÿÑ2;" <";ÿÑ3" = displays first recorded deposit"
  49.  ÿ{ÿÑ2;" >";ÿÑ3" = displays last recorded deposit"
  50.  ÿ{ÿÑ2;" g";ÿÑ3" = goto a specific deposit number"
  51.  ÿ{ÿÑ2;" p";ÿÑ3" = prints current ";ÿÑ2;"MAIN DISPLAY"
  52.  ÿ{ÿÑ2;" L";ÿÑ3" = looks for all checks from the entered Search Name"
  53.  ÿ{ÿÑ2;" RETURN";ÿÑ3" = Terminates the program while at ";ÿÑ2;"MAIN DISPLAY"
  54.  ÿ{
  55.  ÿ{
  56.  ÿ{ÿÑ3;ÿ'(12)"PRESS ";ÿÑ2;"RETURN ";ÿÑ3;"NOW TO CONTINUE TO ";ÿÑ2"MAIN DISPLAY"
  57. wait1: ÿb$:ÿ¡b$ÿ""ÿpÿwwait1:
  58.  
  59. start: 
  60.  ÿÉÿ¥idx%
  61.  ÿ‡
  62.  ÿ¡idx%ÿz%ÿpfinded$ÿ"Last Deposit"
  63.  ÿ¡idx%ÿa%ÿpfinded$ÿ"first Deposit"
  64.  ÿ¡Deposited.BankDepÿ"Y"ÿpfinded$ÿ"Deposited "
  65.  ÿ¡Deposited.BankDepÿ""ÿDeposited.BankDepÿ"N"ÿpfinded$ÿ"Not Deposited"
  66.  ÿ¡Verified.BankDepÿ"Y"ÿpVerified$ÿ"Yes"
  67.  ÿ¡Verified.BankDepÿ""ÿVerified.BankDepÿ"N"ÿpVerified$ÿ"No"
  68.  ÿ{ÿÑ3;"B.A.M. ver. 1.2";ÿÕÿ³ÿ'(19)"Main Display";ÿÖÿe;ÿ'(13)"PRESS 'H' FOR HELP"
  69.  ÿ{
  70.  ÿ{ÿÑ3"Deposit To:";ÿÑ2;@13Type.BankDep;@26ÿÑ3"Status: ";ÿÑ2@36finded$;@50ÿÑ3"Date: ";ÿÑ2date.BankDep
  71.  ÿ{ÿÑ3"Deposit #:";ÿÑ2;Deposit.BankDep;@26ÿÑ3"Verified: ";ÿÑ2Verified$
  72.  ÿ{
  73.  ÿ{@5;ÿÑ3"Name";@56"Amount"
  74.  
  75.  total%ÿ0
  76.  
  77. loop: 
  78.  ÿ{@6name;@57amount
  79.  total%ÿtotal%ÿamount:numb%ÿnumb%ÿ1
  80.  ÿÉÿ]
  81.  ÿ¡ÿOÿB("")ÿpÿwloop:
  82.  ÿwstop:
  83.  
  84. stop: 
  85.  ÿ{@57"----------"
  86.  ÿ²",99999.00"
  87.  ÿ{@57"$"@58total%
  88.  ÿ²"z999."
  89.  ÿ¡numb%ÿ1ÿpÿ{@4ÿÑ2"["numb%" Entry]"ÿ^ÿ{@4ÿÑ2"["numb%" Entries]"
  90.  ÿ²",99999.00"
  91.  ÿ¡PrintUp$ÿ"y"ÿp
  92.  ÿ;
  93.  PrintUp$ÿ"n"
  94.  ÿwstart:
  95.  ÿ’ÿ¡
  96.  
  97. MainMenu: ÿx$:ÿ¡x$ÿ""ÿwMainMenu:
  98.  numb%ÿ0
  99.  PrintUp$ÿ"n"
  100.  ÿ¡x$ÿ","ÿ idx%ÿa%ÿwbackup:
  101.  ÿ¡x$ÿ","ÿ idx%ÿa%ÿwMainMenu:
  102.  ÿ¡x$ÿ"."ÿ idx%ÿ
  103. z%ÿwforward:
  104.  ÿ¡x$ÿ"."ÿ idx%ÿz%ÿwMainMenu:
  105.  ÿ¡x$ÿÿ(13)ÿpÿwover:
  106.  ÿ¡x$ÿ"h"ÿpÿwHelpScreen:
  107.  ÿ¡x$ÿ"n"ÿpÿwNewDeposit:
  108.  ÿ¡x$ÿ"s"ÿpÿwSameDeposit:
  109.  ÿ¡x$ÿ"v"ÿpÿwViewRecord:
  110.  ÿ¡x$ÿ"e"ÿpÿwEditor:
  111.  ÿ¡x$ÿ"<"ÿpÿwFirstDeposit:
  112.  ÿ¡x$ÿ">"ÿpÿwLastDeposit:
  113.  ÿ¡x$ÿ"t"ÿpÿwEnterType:
  114.  ÿ¡x$ÿ"d"ÿpÿwEnterDate:
  115.  ÿ¡x$ÿ"l"ÿpÿwLookUpDate:
  116.  ÿ¡x$ÿ"U"ÿpÿwunvalidate:
  117.  ÿ¡x$ÿ"L"ÿpÿwLookUpName:
  118.  ÿ¡x$ÿ"p"ÿpÿwPrintUp:
  119.  ÿ¡x$ÿ"g"ÿpÿwGotoDeposit:
  120.  ÿ¡x$ÿ"V"ÿpÿwvalidate ÿ^ÿwMainMenu:
  121.  
  122. over: 
  123.  ÿ’
  124.  
  125. forward: 
  126.  ÿÉÿY
  127.  y%ÿDeposit.BankDep
  128.  ÿØy%ÿDeposit.BankDepÿ ÿOÿB("")
  129.  ÿÉÿ±:idx%ÿidx%ÿ1
  130.  ÿÙ
  131.  ÿwstart:
  132.  
  133. backup: 
  134.  ÿÉÿY
  135.  y%ÿDeposit.BankDep
  136.  idx%ÿdeposit.BankDepÿ1
  137.  ÿØy%ÿDeposit.BankDepÿ ÿOÿB("")
  138.  ÿÉÿ¥idx%
  139.  ÿÙ
  140.  ÿwstart:
  141.  
  142. validate: 
  143.  ÿÉÿ¥idx%
  144. vloop: 
  145.  verified.BankDepÿ"Y"
  146.  ÿÌ,1
  147.  ÿÉÿ]
  148.  ÿ¡ÿOÿB("")ÿpÿwvloop:
  149.  ÿÌ,2
  150.  ÿwstart:
  151.  
  152. unvalidate: 
  153.  ÿÉÿ¥idx%
  154. uvloop: 
  155.  verified.BankDepÿ"N"
  156.  ÿÌ,1
  157.  ÿÉÿ]
  158.  ÿ¡ÿOÿB("")ÿpÿwuvloop:
  159.  ÿÌ,2
  160.  ÿwstart:
  161.  
  162. EnterDate: 
  163.  ÿÉÿ¥idx%
  164.  ÿ‡
  165.  ÿ{ÿÑ3;ÿÕÿ³;ÿ'(28)"Deposit Date Entry Mode"
  166.  ÿ{
  167.  ÿ{ÿÑ3;"Enter the "ÿÑ2"DATE "ÿÑ3"of the current deposit in the form MM DD YY."
  168.  ÿ{
  169.  ÿ{ÿÑ3;ÿÕÿ³"To exit unchanged, press RETURN now."
  170.  ÿ~;NewDate$
  171.  ÿ¡NewDate$ÿ""ÿpÿwstart:
  172. DateLoop: 
  173.  date.BankDepÿNewDate$
  174.  ÿ¡NewDate$ÿ"1 1 2000"ÿpdeposited.BankDepÿ"N"
  175.  ÿ¡NewDate$ÿ"1 1 2000"ÿpdeposited.BankDepÿ"Y"
  176.  ÿÌ,1
  177.  ÿÉÿ]
  178.  ÿ¡ÿOÿB("")ÿpÿwDateLoop:
  179.  ÿÌ,2
  180.  
  181.  
  182. EnterType: 
  183.  ÿÉÿ¥idx%
  184.  ÿ‡
  185.  ÿ{ÿÑ3;ÿÕÿ³;ÿ'(28)"Deposit Type Entry Mode"
  186.  ÿ{
  187.  ÿ{ÿÑ3;"Enter the "ÿÑ2"TYPE "ÿÑ3"of the current deposit"
  188.  ÿ{ÿÑ3;"by pressing the appropriate number."
  189.  ÿ{
  190.  ÿ{"  1   ";ÿÑ3"Checking"
  191.  ÿ{"  2   ";ÿÑ3"Savings"
  192.  ÿ{"  3   ";ÿÑ3"Undecided"
  193.  ÿ{
  194.  ÿ{ÿÑ3;ÿÕÿ³"To exit unchanged, press RETURN now."
  195.  ÿ~;Type$
  196.  ÿ¡Type$ÿ"1"ÿpType$ÿ"Checking":ÿwTypeLoop:
  197.  ÿ¡Type$ÿ"2"ÿpType$ÿ"Savings":ÿwTypeLoop:
  198.  ÿ¡Type$ÿ"3"ÿpType$ÿ" ":ÿwTypeLoop:
  199.  ÿ¡Type$ÿ""ÿpÿwstart:
  200.  ÿ{
  201.  ÿ{"Please enter the appropriate number"
  202.  ÿÏÿ›3
  203.  ÿwEnterType:
  204.  
  205. TypeLoop: 
  206.  type.BankDepÿType$
  207.  ÿÌ,1
  208.  ÿÉÿ]
  209.  ÿ¡ÿOÿB("")ÿpÿwTypeLoop:
  210.  ÿÌ,2
  211.  ÿwstart:
  212.  
  213. NewDeposit: 
  214.  z%ÿz%ÿ1
  215.  idx%ÿz%
  216.  ÿ
  217.  date.BankDepÿ"1 1 2000"
  218.  deposit.BankDepÿidx%
  219.  ÿ”
  220.  ÿÌ
  221.  ÿÉÿ¥idx%
  222.  ÿwstart:
  223.  
  224. SameDeposit: 
  225.  TempDate%ÿdate.BankDep
  226.  TempType$ÿtype.BankDep
  227.  ÿ
  228.  date.BankDepÿTempDate%
  229.  deposit.BankDepÿidx%
  230.  ÿ”
  231.  ÿÌ
  232.  ÿÉÿ¥idx%
  233.  ÿwstart:
  234.  
  235. ViewRecord: 
  236.  ÿ‡
  237.  ÿ{ÿÑ3;ÿ'(31);ÿÕÿ³;"Record View Mode"
  238.  ÿ{
  239.  ÿ{ÿÑ3"Which record would you like to";ÿÑ2" VIEW";ÿÑ3" from deposit"ÿ(idx%,"z9999")"?"
  240.  ÿ{
  241.  ÿwcontinue:
  242.  
  243. Editor: 
  244.  ÿ‡
  245.  ÿ{ÿÑ3;ÿ'(31);ÿÕÿ³;"Record Edit Mode"
  246.  ÿ{
  247.  ÿ{ÿÑ3"Which record would you like to";ÿÑ2" EDIT";ÿÑ3" from deposit"ÿ(idx%,"z9999")"?"
  248.  ÿ{
  249. continue: 
  250.  ÿÉÿY
  251.  y%ÿdeposit.BankDep
  252.  n%ÿ0
  253.  ÿÉÿ¥idx%
  254.  
  255.  ÿ{ÿÑ3" 0   to exit"
  256.  ÿØy%ÿDeposit.BankDepÿ ÿOÿB("")
  257.  n%ÿn%ÿ1
  258.  ÿ{ÿ(n%,"z99")"   "name.BankDep;amount.BankDep
  259.  ÿÉÿ]
  260.  ÿÙ
  261.  ÿ{
  262.  ÿ{ÿÑ3;ÿÕÿ³;"Select the appropriate number in the left column."
  263.  
  264. label1: ÿÏx%
  265.  ÿ¡x%ÿ
  266. 0ÿpÿwlabel1:
  267.  ÿ¡x%ÿn%ÿpÿwlabel1:
  268.  ÿ¡x%ÿ0ÿpÿwstart:
  269.  ÿÉÿ¥idx%
  270.  
  271.  k%ÿ1
  272.  
  273. label2: 
  274.  ÿ¡k%ÿx%ÿpÿwViewOnly:
  275.  ÿÉÿ]
  276.  k%ÿk%ÿ1
  277.  ÿwlabel2:
  278.  
  279. ViewOnly: 
  280.  ÿ¡x$ÿ"e"ÿwEditOnly:
  281.  ÿ‡
  282.  ÿÎ
  283.  ÿ{
  284.  ÿ{ÿÑ3ÿÕÿ³;"Press Any Key To Continue"
  285.  ÿÏKeyPress$
  286.  ÿwViewRecord:
  287.  
  288. EditOnly: 
  289.  ÿ”
  290.  ÿÌ,0
  291.  ÿwEditor:
  292.  
  293. FirstDeposit: 
  294.  idx%ÿa%
  295.  ÿwstart:
  296.  
  297. LastDeposit: 
  298.  idx%ÿz%
  299.  ÿwstart:
  300.  
  301. LookUpDate: 
  302.  ÿ‡
  303.  ÿ{ÿÑ3;ÿÕÿ³;ÿ'(31)"Date LookUp Mode"
  304.  ÿ{
  305.  ÿ{ÿÑ3;"Enter the DATE you are interested in."
  306.  ÿ~;LookUpDate$
  307.  
  308. LookUpLoop: 
  309.  ÿÉÿ¥ÿ1(LookUpDate$)ÿ£date.BankDep
  310.  ÿ½ IF FOUND ("BankDep") THEN GOTO FoundIt ELSE GOTO LookUpNext
  311.  ÿ¡LookUpDate$ÿÿ(date.BankDep)ÿpÿwFoundIt:
  312. LookUpNext: 
  313.  NextDay%ÿÿ1(LookUpDate$)ÿ1
  314.  LookUpDate$ÿÿ(NextDay%,"mm-dd-yyyy")
  315.  ÿwLookUpLoop:
  316.  
  317. FoundIt: 
  318.  ÿÉÿY
  319.  idx%ÿdeposit.BankDep
  320.  ÿwstart:
  321.  
  322. LookUpName: 
  323.  ÿ‡
  324.  ÿ{ÿÑ3;ÿÕÿ³;ÿ'(31)"Name Search Mode"
  325.  total%ÿ0:number%ÿ0
  326.  ÿ{
  327.  ÿ{ÿÑ3;"Enter the Search Name you are interested in finding."
  328.  ÿ{ÿÑ2;"NAME"
  329.  ÿ~;Name$
  330.  ÿ{
  331.  ÿ{ÿÑ3;"Would you like this sent to the PRINTER?"
  332.  ÿ~;PrintUp$
  333.  PrintUp$ÿÿ+(PrintUp$,1)
  334.  ÿ‡
  335.  ÿ¡PrintUp$ÿ"y"ÿp
  336.  ÿ¹;
  337.  ÿ{
  338.  ÿ’ÿ¡
  339.  ÿÉÿÐName.BankDepÿName$
  340.  ÿÉÿ`
  341.  ÿ¡ÿB("")ÿpÿÉÿÐ:ÿwstart:
  342.  ÿ{ÿÑ3;"Search for: ";Name$
  343.  ÿ{"Name";@30"Amount";@45"Date";@60"Deposit Number"
  344.  
  345. LookUpNameLoop: 
  346.  ÿ{ÿÑ2;@2&25name.BankDep;@31amount.BankDep;@45date.BankDep;@60deposit.BankDep
  347.  total%ÿtotal%ÿamount.BankDep
  348.  ÿÉÿ±
  349.  ÿ¡ÿOÿB("")ÿpÿwLookUpNameLoop:
  350.  ÿ{@30"-----------"
  351.  ÿ{@31"$";@32total%
  352.  ÿ{
  353.  ÿ¡PrintUp$ÿ"y"ÿp
  354.  PrintUp$ÿ"n"
  355.  ÿ;
  356.  ÿ’ÿ¡
  357.  ÿ{"Select another? (Y/N)"
  358.  ÿ~;answer$
  359.  ÿ¡answer$ÿ"y"ÿp
  360.  ÿÉÿÐ
  361.  ÿwLookUpName:
  362.  ÿ’ÿ¡
  363.  ÿÉÿÐ
  364.  ÿwstart:
  365.  
  366. GotoDeposit: 
  367.  ÿ‡
  368.  ÿ{ÿÑ3;"What is the ";ÿÑ2;"DEPOSIT NUMBER ";ÿÑ3;"that you want displayed?"
  369.  ÿ~;idx%
  370.  ÿwstart:
  371.  
  372. PrintUp: 
  373.  PrintUp$ÿ"y"
  374.  ÿ¹;
  375.  ÿ{
  376.  ÿwstart:
  377.  
  378.